home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / HTML and CSS Modes / htmlMode.tcl < prev    next >
Encoding:
Text File  |  1997-11-17  |  32.9 KB  |  922 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  HTML mode 2.0.3: tools for editing HTML documents
  4.  # 
  5.  #  FILE: "htmlMode.tcl"
  6.  #                                    created: 95-04-26 14.49.04 
  7.  #                                last update: 17/11/97 {9:03:18 am} 
  8.  #  Author: Johan Linde
  9.  #  E-mail: <jl@theophys.kth.se>
  10.  #     www: <http://bach.theophys.kth.se/~jl/Alpha.html>
  11.  #  
  12.  # Version: 2.0.3
  13.  # 
  14.  # version 0.24 (16 July 95) by Scott W. Brim <swb1@cornell.edu>
  15.  # version 1.0 -- 2.0.3 (November 97) by Johan Linde <jl@theophys.kth.se>
  16.  #
  17.  # Copyright 1996, 1997 by Johan Linde
  18.  #  
  19.  # This software may be used freely, and distributed freely, as long as the 
  20.  # receiver is not obligated in any way by receiving it.
  21.  #  
  22.  # If you make improvements to this file, please share them!
  23.  # 
  24.  # ###################################################################
  25.  ##
  26.  
  27. alpha::mode HTML 2.0.3 htmlMenu \
  28.   {*.html *.htm *.shtml *.HTML *.HTM *.SHTML } {htmlMenu htmlUtilsMenu} {
  29.     addMenu     htmlMenu
  30.     addMenu     htmlUtilsMenu
  31. } uninstall {
  32.     set __dir [file dirname [procs::find htmlMenu]]
  33.     foreach __file {Mode 32 Custom Elems Engine Extensions HomePageUtils Menu StatusBar Utils} {
  34.         catch {removeFile $__dir:html${__file}.tcl}
  35.     }
  36.     if {[procs::find cssMenu] == ""} {
  37.         catch {removeFile $__dir:hctsmsl.tcl}
  38.         catch {removeFile $__dir:hctsmslShared.tcl}
  39.         catch {removeFile $__dir:hctsmslMenu.tcl}
  40.         catch {removeFile "$HOME:Help:HTML Help"}
  41.     }
  42. } maintainer {
  43.     "Johan Linde" jl@theophys.kth.se <http://www.theophys.kth.se/~jl/Alpha.html>
  44. } help {file "HTML Help"}
  45.  
  46. # called by Alpha to load HTML in.  
  47. proc htmlMenu {} {}
  48. proc htmlUtilsMenu {} {}
  49.  
  50. #===============================================================================
  51. # Global variables and their management
  52. #===============================================================================
  53.  
  54. # Menu icons
  55. newPref v htmlMenuIcon •135 HTML
  56. newPref v htmlUtilsMenuIcon •942 HTML
  57. set htmlMenu $HTMLmodeVars(htmlMenuIcon)
  58. set htmlUtilsMenu $HTMLmodeVars(htmlUtilsMenuIcon)
  59.  
  60. # Line width
  61. newPref v fillColumn 75 HTML
  62. newPref v leftFillColumn 0 HTML
  63. # word breaking and word wrapping
  64. newPref v wordBreak {\w+} HTML
  65. newPref v wordBreakPreface {(\W)} HTML
  66. newPref v wrapBreak {[\w_]+} HTML
  67. newPref v wrapBreakPreface {([^\w_])} HTML
  68.  
  69. # Indentation
  70. newPref f indentHEAD 0 HTML
  71. newPref f indentBODY 0 HTML
  72. newPref f indentP 0 HTML
  73. newPref f indentDIV 0 HTML
  74. newPref f indentBLOCKQUOTE 0 HTML
  75. newPref f indentCENTER 0 HTML
  76. newPref f indentMULTICOL 0 HTML
  77. newPref f indentOBJECT 0 HTML
  78. newPref f indentNOEMBED 0 HTML
  79. newPref f indentOL 1 HTML
  80. newPref f indentUL 1 HTML
  81. newPref f indentDIR 1 HTML
  82. newPref f indentMENU 1 HTML
  83. newPref f indentDL 1 HTML
  84. newPref f indentFORM 0 HTML
  85. newPref f indentSELECT 0 HTML
  86. newPref f indentTABLE 1 HTML
  87. newPref f indentTR 1 HTML
  88. # newPref f indentTD 0 HTML
  89. newPref f indentFRAMESET 0 HTML
  90. newPref f indentNOFRAMES 0 HTML
  91. newPref f indentMAP 0 HTML
  92. newPref f indentAPPLET 0 HTML
  93. newPref f indentNOSCRIPT 0 HTML
  94. set htmlIndentElements {HEAD BODY P DIV BLOCKQUOTE CENTER MULTICOL OBJECT NOEMBED OL UL DIR MENU DL
  95. FORM SELECT TABLE TR FRAMESET NOFRAMES MAP APPLET NOSCRIPT}
  96.  
  97. # browsers
  98. if {![info exists browserSig] && [catch {getFileSig [icGetPref -t 1 Helper•http]} browserSig]} {set browserSig MOSS}
  99. newPref v browsers {MOSS MSIE} HTML
  100.  
  101. newPref f wordWrap    1 HTML
  102. newPref v prefixString    "<!-- " HTML
  103. newPref v suffixString    " -->" HTML
  104.  
  105. # Paths to footer files.
  106. newPref v footers {} HTML
  107. # Tag color
  108. newPref v tagColor        blue HTML
  109. # Attribute color
  110. newPref v attributeColor magenta HTML
  111. # Simple coloring?
  112. newPref f simpleColoring 0 HTML
  113. # Should elements be lower case?
  114. newPref f useLowerCase    0 HTML
  115. # Should •'s be inserted?
  116. newPref    f useTabMarks    1 HTML
  117. # Is <p> a container?
  118. newPref f pIsContainer    1 HTML
  119. # Are LI DT and DD containers 
  120. newPref f lidtAreContainers 0  HTML
  121. # A window cache with frames.
  122. newPref v windows        {} HTML
  123. # When browser is launched, should it be brought to front?
  124. newPref    f browseInForeground    1 HTML
  125. # Save without asking when sending file to browser?
  126. newPref f saveWithoutAsking 0 HTML
  127. # list of commonly used character entities
  128. newPref v defaultCommonChars {"less than" "greater than" "ampersand"} HTML
  129. newPref v commonChars $HTMLmodeVars(defaultCommonChars) HTML
  130. # Which HTML package?
  131. newPref v htmlPackageToUse 1 HTML
  132. # Hide Netscape or MSIE only tags?
  133. newPref f hideNetscape 0 HTML
  134. newPref f hideIE 1 HTML
  135. # Include event handlers in attribute dialog?
  136. newPref f inclEventHandler 0  HTML
  137. # Include style sheet attributes in attribute dialog?
  138. newPref f hideStyleAttrs 1 HTML
  139. # Beep when asking for attributes in the status bar?
  140. newPref f promptNoisily 1 HTML
  141. # Input from big windows?
  142. newPref f useBigWindows 1 HTML
  143. # Change in big windows?
  144. newPref f changeInBigWindows 1 HTML
  145. # Settings in Use Attributes menu apply to dialogs?
  146. newPref f useAttsApplyToDialogs 0 HTML
  147. # Cmd-double-click on non text file link opens file?
  148. newPref f openNonTextFile 1 HTML
  149. # Return on non text file in home page window opens file?
  150. newPref f homeOpenNonTextFile 1 HTML
  151. # Check anchors in links
  152. newPref f checkAnchors 1 HTML
  153. # Case sensistive link checking?
  154. newPref f caseSensitive 0 HTML
  155. # Check links with Big Brother?
  156. newPref f useBigBrother 0 HTML
  157. newPref f checkInFront 1 HTML
  158. newPref f useBBoptions 1 HTML
  159. newPref f ignoreRemote 0 HTML
  160. newPref f ignoreLocal 0 HTML
  161. # Folder for HTML manual.
  162. newPref v manualFolder "$HOME:HTML mode manual" HTML
  163. newPref v manualStartPage 0 HTML
  164. # FTP servers
  165. newPref v FTPservers {} HTML
  166. # Last modified string
  167. newPref v lastModified "Last modified" HTML
  168.  
  169. # JavaScript stuff
  170. newPref f JavaScriptColoring 0 HTML
  171. newPref v JavaScriptColor    magenta HTML
  172. newPref v stringColor green HTML
  173. newPref v JavaCommentColor red HTML
  174. newPref f elecRBrace 1 HTML
  175. newPref f elecLBrace 1 HTML
  176. newPref f electricSemi 1 HTML
  177.  
  178. # CSS stuff
  179. newPref f CSSColoring 0 HTML
  180. newPref v CSSColor cyan HTML
  181.  
  182.  
  183. # These attributes are URLs.
  184. set htmlURLAttr    {HREF= SRC= LOWSRC= ACTION= USEMAP= BACKGROUND= CODEBASE= PLUGINSPAGE=
  185. DYNSRC= CLASSID= DATA=}
  186. # These element attributes are colors
  187. set htmlColorAttr    {BGCOLOR= TEXT= LINK= VLINK= ALINK= COLOR= BORDERCOLOR=
  188. BORDERCOLORDARK= BORDERCOLORLIGHT=}
  189. # These attributes are windows
  190. set htmlWindowAttr {TARGET=}
  191. # Special cases with URLs, colors and windows
  192. set htmlSpecURL {}
  193. set htmlSpecColor {}
  194. set htmlSpecWindow {}
  195. # These elements can be in document HEAD.
  196. set htmlHeadElements1 {BASE ISINDEX LINK META STYLE SCRIPT}
  197. set htmlHeadElements3 {BASE ISINDEX LINK META STYLE}
  198. # These elements are plug-ins.
  199. set htmlPlugins {EMBED LIVEAUDIO LIVEVIDEO "QUICKTIME MOVIE" "QUICKTIME VR" REALAUDIO}
  200. # HTML mode version
  201. set htmlVersion 2.0
  202.  
  203. # Register eventhandler for Big Brother events
  204. eventHandler Bbth Chkd htmlBbthChkdHandler 
  205.  
  206. # Used by fillParagraph
  207. set htmlParaCommands {html|head|title|body|h[1-6]|p|div|blockquote|center|address|pre|multicol}
  208. append htmlParaCommands {|br|hr|wbr|basefont|ul|ol|li|dir|menu|dl|dd|dt|form|input}
  209. append htmlParaCommands {|select|option|textarea|caption|table|tr|frameset|frame|noframes}
  210. append htmlParaCommands {|map|area|applet|param|script|noscript|layer|ilayer|nolayer|base|link|meta|isindex}
  211. append htmlParaCommands {|col|colgroup|marquee|object|thead|tbody|tfoot}
  212.  
  213. #
  214. # Internal Globals
  215. #
  216. set htmlCurSel    ""
  217. set htmlIsSel    0
  218. set htmlAdditionExist 0
  219. set htmlHomePageWinList {}
  220. set homeTime 0
  221. set htmlNumBbthChecking 0
  222.  
  223. # Load other HTML mode files.
  224. foreach tmp {htmlEngine htmlElems htmlUtils hctsmslShared hctsmslMenu htmlMenu} {
  225.     if {[info exists cssModeIsLoaded] && ($tmp == "hctsmslMenu" || $tmp == "hctsmslShared")} {continue}
  226.     if { [catch {eval ${tmp}.tcl}] } {
  227.         beep
  228.         alertnote "Loading of ${tmp}.tcl failed"
  229.         return
  230.     }
  231. }
  232.  
  233. if {(!$HTMLmodeVars(useBigWindows) || !$HTMLmodeVars(changeInBigWindows)) && [catch {htmlStatusBar.tcl}] } {
  234.     beep
  235.     alertnote "Loading of htmlStatusBar.tcl failed"
  236.     return
  237. }
  238.  
  239. # Silently add missing menu.
  240. if {[lsearch -exact $modeMenus(HTML) htmlMenu] >= 0 && [lsearch -exact $modeMenus(HTML) htmlUtilsMenu] < 0} {
  241.     lappend modeMenus(HTML) htmlUtilsMenu
  242. }
  243. if {[lsearch -exact $modeMenus(HTML) htmlMenu] < 0 && [lsearch -exact $modeMenus(HTML) htmlUtilsMenu] >= 0} {
  244.     lappend modeMenus(HTML) htmlMenu
  245. }
  246.  
  247. # Clean up tmp files
  248. if {[file exists $PREFS:HTMLtmp]} {catch {rm $PREFS:HTMLtmp:*}}
  249.  
  250. # Clean up after version 2.0b1
  251. if {[info exists htmlMenuKey]} {
  252.     foreach tmp [array names htmlMenuKey] {
  253.         removeArrDef htmlMenuKey $tmp
  254.     }
  255.     htmlWriteMenuKeys
  256. }
  257.  
  258.  
  259. #
  260. # Read custom elements
  261. #
  262.  
  263. proc htmlReadAdditions {} {
  264.     global PREFS htmlElemAttrRequired1 htmlElemAttrOptional1 htmlElemAttrChoices1
  265.     global htmlElemAttrNumber1 htmlElemEventHandler1 htmlElemKeyBinding htmlElemProc
  266.     global htmlURLAttr htmlColorAttr htmlWindowAttr htmlPlugins
  267.     global htmlSpecURL htmlSpecColor htmlSpecWindow htmlVersion htmlShownWarning
  268.  
  269.     htmlExtensions.tcl
  270.     message "Loading custom elements…"
  271.     
  272.     
  273.     if {[catch {open $PREFS:HTMLadditions.tcl r} fid]} {
  274.         alertnote "Could not open the file HTMLAdditions.tcl with your custom elements."
  275.         return
  276.     }
  277.     set additions [read -nonewline $fid]
  278.     close $fid
  279.     set lines [split $additions "\n"]
  280.     set version [lindex $lines 0]
  281.     if {$version == $htmlVersion} {htmlReadAdditions0 $lines; return}
  282.     if {$version > $htmlVersion} {
  283.         regsub "\[^\n\]+" $additions $htmlVersion additions
  284.         set fid [open $PREFS:HTMLadditions.tcl w]
  285.         puts $fid $additions
  286.         close $fid
  287.         htmlReadAdditions0 $lines
  288.         return
  289.     }
  290.     set allattrs [htmlGetAllAttrs]
  291.     set newLines "$htmlVersion\n"
  292.     set changed 0
  293.     set tmpSpecURL ""
  294.     set tmpSpecColor ""
  295.     set tmpSpecWindow ""
  296.     foreach line [lrange $lines 1 end] {
  297.         set elem [lindex $line 0]
  298.         set command [lindex $line 1]
  299.         set elemExists [info exists htmlElemAttrOptional1($elem)]
  300.         if {$elemExists} {
  301.             foreach x [list AttrOptional1 AttrRequired1 AttrNumber1 AttrChoices1 EventHandler1] {
  302.                 if {[info exists htmlElem${x}($elem)]} {
  303.                     set $x [string toupper [set htmlElem${x}($elem)]]
  304.                 } else {
  305.                     set $x ""
  306.                 }
  307.             }
  308.             set attrs [concat $AttrOptional1 $AttrRequired1 $EventHandler1]
  309.             foreach at $attrs {
  310.                 if {[string trimright $at =] == $at} {
  311.                     lappend attrs "${at}="
  312.                 } else {
  313.                     lappend attrs [string trimright $at =]
  314.                 }
  315.             }
  316.         } else {
  317.             set attrs {}
  318.         }
  319.         set var [lindex $command 1]
  320.         foreach ucw [list URL Color Window] {
  321.             if {$var == "html${ucw}Attr"} {
  322.                 set att [lindex $command 2]
  323.                 if {[lsearch -exact [set html${ucw}Attr] $att] >=0} {
  324.                     # Already defined.
  325.                     set changed 1
  326.                 } elseif {[lsearch -exact $allattrs $att] >=0 || [lsearch -exact $allattrs [string trimright $att =]] >=0} {
  327.                     # Used for some other kind of attr.
  328.                     lappend ${ucw}SpecMaybe $att
  329.                     set changed 1
  330.                 } elseif {[lsearch -exact $attrs $att] >= 0} {
  331.                     # Attr already exists for elem.
  332.                     lappend ${ucw}Maybe $att
  333.                     set changed 1
  334.                 } else {
  335.                     append newLines "$line\n"
  336.                 }
  337.             }
  338.             if {$var == "htmlSpec${ucw}"} {
  339.                 set tmpadd [lrange $command 2 end]
  340.                 foreach x $tmpadd {
  341.                     regexp {[^!=]!?=(.*)} $x dum tmp
  342.                     # Only add if attr doesn't exist.
  343.                     if {[lsearch -exact $attrs $tmp] >= 0} {
  344.                         set changed 1
  345.                         set where [lsearch -exact $tmpadd $x]
  346.                         set tmpadd [lreplace $tmpadd $where $where]
  347.                     }
  348.                 }
  349.                 if {[llength $tmpadd]} {
  350.                     append newLines "[list $elem] \{lappend htmlSpec${ucw} $tmpadd\}\n"
  351.                     append tmpSpec${ucw} " " $tmpadd
  352.                 }
  353.             }
  354.         }
  355.         if {[lsearch {htmlURLAttr htmlColorAttr htmlWindowAttr htmlSpecURL \
  356.         htmlSpecColor htmlSpecWindow} $var] < 0} {
  357.             # If element doesn't exist, GO!
  358.             if {!$elemExists} {
  359.                 append newLines "$line\n"
  360.                 regsub "html" $command "tmp" command
  361.                 eval $command
  362.                 continue
  363.             }
  364.             # Skip these vars if element exists.
  365.             if {[string match "htmlElemKeyBinding*" $var] || [string match "htmlElemProc*" $var] ||
  366.             $var == "htmlPlugins"} {
  367.                 set changed 1
  368.                 continue
  369.             }
  370.             regexp {([^\(]+)\(([^\)]+)\)[ ]+(.+)} [lrange $command 1 end] dummy var arg added
  371.             set added [string trimleft [string trimright $added \}] \{]
  372.             foreach c $added {
  373.                 if {$var == "htmlElemAttrChoices1"} {
  374.                     regexp {[^=]*=} $c tmp
  375.                     # Don't add choices if they exist or if attr isn't a choice attr.
  376.                     if {[lsearch -exact $AttrChoices1 $c] >= 0 || ([lsearch -exact $attrs $tmp] >= 0 &&
  377.                     [lsearch $AttrChoices1 "${tmp}*"] < 0) } {
  378.                         set changed 1
  379.                         set where [lsearch -exact $added $c]
  380.                         set added [lreplace $added $where $where]
  381.                     }
  382.                 } else {
  383.                     if {$var == "htmlElemAttrNumber1"} {
  384.                         regexp {[^=]*=} $c tmp
  385.                     } else {
  386.                         set tmp [string toupper $c]
  387.                     }
  388.                     # Don't add attrs which exist.
  389.                     if {[lsearch -exact $attrs $tmp] >= 0} {
  390.                         set changed 1
  391.                         set where [lsearch -exact $added $c]
  392.                         set added [lreplace $added $where $where]
  393.                     }
  394.                 }
  395.             }
  396.             if {[llength $added]} {
  397.                 append newLines "[list $elem] \{lappend ${var}($arg) $added\}\n"
  398.                 regsub "html" $var "tmp" var
  399.                 eval "lappend ${var}($arg) $added"
  400.             }
  401.         }
  402.     }
  403.     foreach ucw [list URL Color Window] {
  404.         if {[info exists ${ucw}SpecMaybe]} {
  405.             foreach m [set ${ucw}SpecMaybe] {
  406.                 foreach e [array names tmpElemAttrRequired1] {
  407.                     if {[lsearch -exact $tmpElemAttrRequired1($e) $m] >= 0 && \
  408.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  409.                         append newLines "[list $e] \{lappend htmlSpec${ucw} ${e}=[string trimright $m =]\}\n"
  410.                     } 
  411.                 }
  412.                 foreach e [array names tmpElemAttrOptional1] {
  413.                     if {[lsearch -exact $tmpElemAttrOptional1($e) $m] >= 0 && \
  414.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  415.                         append newLines "[list $e] \{lappend htmlSpec${ucw} ${e}=[string trimright $m =]\}\n"
  416.                     } 
  417.                 }
  418.             }
  419.         }
  420.         if {[info exists ${ucw}Maybe]} {
  421.             foreach m [set ${ucw}Maybe] {
  422.                 set foundit 0
  423.                 foreach e [array names tmpElemAttrRequired1] {
  424.                     if {[lsearch -exact $tmpElemAttrRequired1($e) $m] >= 0 && \
  425.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  426.                         append newLines "[list $e] \{lappend html${ucw}Attr $m\}\n"
  427.                         set foundit 1
  428.                         break
  429.                     } 
  430.                 }
  431.                 if {$foundit} {continue}
  432.                 foreach e [array names tmpElemAttrOptional1] {
  433.                     if {[lsearch -exact $tmpElemAttrOptional1($e) $m] >= 0 && \
  434.                     [lsearch -exact [set tmpSpec$ucw] "$e!=[string trimright $m =]"] < 0} {
  435.                         append newLines "[list $e] \{lappend html${ucw}Attr $m\}\n"
  436.                         break
  437.                     } 
  438.                 }
  439.             }
  440.         }    
  441.     }
  442.     
  443.     if {$newLines != "$htmlVersion\n"} {htmlReadAdditions0 [split [string trimright $newLines "\n"] "\n"]}
  444.     if {$changed} {
  445.         beep
  446.         if {[lindex [dialog -w 300 -h 270 -b "Clean up" 20 240 100 260 \
  447.         -b "Leave it" 120 240 200 260 -t "Some of your custom elements are supported by this\
  448.         version of HTML mode." 10 10 290 45 -t "Choose 'Clean up' to update your file with custom\
  449.         elements and to avoid this alert next time you run Alpha.\
  450.         If you do so, some elements will not be defined correctly if you go back to\
  451.         a previous version of HTML mode." 10 50 290 150 -t "Choose 'Leave it' to leave your file\
  452.         with custom elements untouched. If you do so, the submenu 'Extend', where you can add new custom\
  453.         elements, will be disabled." 10 160 290 225] 1]} {
  454.             set htmlShownWarning 1
  455.             return
  456.         }
  457.     }
  458.     if {$newLines == "$htmlVersion\n"} {
  459.         removeFile $PREFS:HTMLadditions.tcl
  460.     } else {
  461.         set fid [open $PREFS:HTMLadditions.tcl w]
  462.         puts -nonewline $fid $newLines
  463.         close $fid
  464.     }
  465. }
  466.  
  467. proc htmlReadAdditions0 {lines} {
  468.     global htmlElemAttrRequired1 htmlElemAttrOptional1 htmlElemAttrChoices1
  469.     global htmlElemAttrNumber1 htmlElemEventHandler1 htmlElemKeyBinding htmlElemProc
  470.     global htmlURLAttr htmlColorAttr htmlWindowAttr htmlPlugins
  471.     global htmlSpecURL htmlSpecColor htmlSpecWindow htmlAdditionExist htmlShownWarning
  472.     
  473.     foreach line [lrange $lines 1 end] {
  474.         if {[catch {eval [lindex $line 1]}]} {
  475.             alertnote "There is an error in the file HTMLAdditions.tcl with your custom elements."
  476.             set htmlShownWarning 1
  477.             break
  478.         }
  479.     }
  480.     set htmlAdditionExist 1
  481. }
  482.  
  483. #
  484. # Color support
  485. #
  486.  
  487. proc htmlColorizing {{changing 0}} {
  488.      global HTMLmodeVars HTMLwords htmlElemAttrOptional1 htmlElemAttrRequired1
  489.      global htmlElemEventHandler1 PREFS htmlElemKeyBinding
  490.      
  491.      set HTMLKeyWords {}
  492.     if {[info exists HTMLwords]} {set HTMLKeyWords $HTMLwords}
  493.  
  494.     if {!$HTMLmodeVars(simpleColoring)} {
  495.         # All HTML elements
  496.         set allHTMLwords [concat {A ADDRESS APPLET AREA B BASE BASEFONT 
  497.         BGSOUND BIG BLINK BLOCKQUOTE BODY BR 
  498.         CAPTION CENTER CITE CODE COL COLGROUP DD DFN DIR DIV DL DT EM EMBED FONT 
  499.         FORM FRAME FRAMESET H1 H2 H3 H4 H5 H6 HEAD HR HTML I IFRAME ILAYER IMG 
  500.         INPUT ISINDEX KBD KEYGEN LAYER LI LINK MAP MARQUEE MENU META MULTICOL NOBR 
  501.         NOEMBED NOFRAMES NOLAYER NOSCRIPT OBJECT OL OPTION P PARAM PRE SAMP SCRIPT 
  502.         SELECT SMALL SPACER SPAN STRIKE STRONG STYLE SUB SUP TABLE TBODY TD 
  503.         TEXTAREA TFOOT TH THEAD TITLE TR TT U UL VAR WBR} [array names htmlElemKeyBinding]]
  504.     
  505.         foreach elem $allHTMLwords {
  506.             lappend allHTMLkeywords "<${elem}" "/${elem}"
  507.         }
  508.         # All attributes
  509.         set attributeWords {ABOVE= ACTION= ALIGN= ALINK= ALT= ARCHIVE= 
  510.         AUTOPLAY= AUTOSTART= BACKGROUND= 
  511.         BEHAVIOR= BELOW= BGCOLOR= BGPROPERTIES= BORDER= BORDERCOLOR= 
  512.         BORDERCOLORDARK= BORDERCOLORLIGHT= CELLPADDING= CELLSPACING= CHALLENGE= 
  513.         CHECKED CLASS= CLASSID= CLEAR= CLIP= CODE= CODEBASE= CODETYPE= COLOR= COLS= 
  514.         COLSPAN= COMPACT CONSOLE= CONTENT= CONTROLLER= CONTROLS CONTROLS= COORDS= 
  515.         CORRECTION= DATA= DECLARE DIRECTION= DYNSRC= ENCTYPE= FACE= FOV= FRAME= 
  516.         FRAMEBORDER= FRAMESPACING= GUTTER= HEIGHT= HIDDEN= HREF= HSPACE= 
  517.         HTTP-EQUIV= ID= ISMAP LANGUAGE= LEFT= LEFTMARGIN= LINK= LOOP= LOWSRC= 
  518.         MARGINHEIGHT= MARGINWIDTH= MAXLENGTH= MAYSCRIPT METHOD= MULTIPLE NAME= 
  519.         NODE= NOHREF NOLABELS= NORESIZE NOSHADE NOWRAP PAGEX= PAGEY= PAN= 
  520.         PLAYEVERYFRAME= PLUGINSPAGE= POINT-SIZE= PROMPT= REL= REV= ROWS= ROWSPAN= 
  521.         RULES= SCROLLAMOUNT= SCROLLDELAY= SCROLLING= SELECTED SHAPE= SHAPES SIZE= 
  522.         SPAN= SRC= STANDBY= START= STYLE= TARGET= TEXT= TILT= TITLE= TOP= 
  523.         TOPMARGIN= TYPE= USEMAP= VALIGN= VALUE= VALUETYPE= VISIBILITY= VLINK= 
  524.         VSPACE= WIDTH= WRAP= Z-INDEX=}
  525.         # Custom element attributes
  526.         if {[file exists $PREFS:HTMLadditions.tcl] && ![catch {open $PREFS:HTMLadditions.tcl} fid]} {
  527.             set lines [lrange [split [read -nonewline $fid] "\n"] 1 end]
  528.             close $fid
  529.             foreach line $lines {
  530.                 set cmd [lindex $line 1]
  531.                 set added ""
  532.                 regexp {([^\(]+)\(([^\)]+)\)[ ]+(.+)} [lrange $cmd 1 end] dummy var arg added
  533.                 set added [string trimleft [string trimright $added \}] \{]
  534.                 if {$var == "htmlElemAttrRequired1" || $var == "htmlElemAttrOptional1"} {
  535.                     foreach attr $added {
  536.                         if {[lsearch -exact $attributeWords $attr] < 0} {
  537.                             lappend attributeWords $attr
  538.                         }
  539.                     }
  540.                 }
  541.             }
  542.         }
  543.         # A few other words.
  544.         lappend allHTMLkeywords "<!--" "-->" "#INCLUDE" "/#INCLUDE" \
  545.         "#LASTMODIFIED" "/#LASTMODIFIED" "#DOCINDEX" "/#DOCINDEX"
  546.         lappend attributeWords "FILE=" "FORM="
  547.         # JavaScript keywords.
  548.         set JavaScriptWords {break case continue default do for in function if else new return switch this var while with true false }
  549.         foreach elem [array names htmlElemEventHandler1] {
  550.             foreach event $htmlElemEventHandler1($elem) {
  551.                 if {[lsearch -exact $JavaScriptWords $event] < 0} {
  552.                     lappend JavaScriptWords $event
  553.                 }
  554.             }
  555.         }
  556.         # CSS keywords
  557.         set CSSwords {font-family font-style font-variant font-weight font-size font 
  558.         color background-color background-image background-repeat background-attachment
  559.         background-position background word-spacing letter-spacing text-decoration
  560.         vertical-align text-transform text-align text-indent line-height
  561.         margin-top margin-right margin-bottom margin-left margin padding-top padding-right
  562.         padding-bottom padding-left padding border-top-width border-right-width
  563.         border-bottom-width border-left-width border-width border-color border-style
  564.         border-top border-right border-bottom border-left border width height float clear
  565.         display white-space list-style-type list-style-image list-style-position list-style
  566.         @import important}
  567.         
  568.         if {!$changing} {
  569.             regModeKeywords -i "<" -i ">" -I $HTMLmodeVars(tagColor) \
  570.                 -s $HTMLmodeVars(stringColor)  -b "/*" "*/" -e "//" HTML {}
  571.         }
  572.         if {$HTMLmodeVars(JavaScriptColoring) || $HTMLmodeVars(CSSColoring)} {
  573.             set col $HTMLmodeVars(JavaCommentColor)
  574.         } else {
  575.             set col none
  576.         }
  577.         regModeKeywords -a -c $col HTML
  578.         if {$HTMLmodeVars(JavaScriptColoring)} {
  579.             set col $HTMLmodeVars(JavaScriptColor)
  580.         } else {
  581.             set col none
  582.         }
  583.         regModeKeywords -a -k $col HTML $JavaScriptWords
  584.         if {$HTMLmodeVars(CSSColoring)} {
  585.             set col $HTMLmodeVars(CSSColor)
  586.         } else {
  587.             set col none
  588.         }
  589.         regModeKeywords -a -k $col HTML $CSSwords
  590.         regModeKeywords -a -k $HTMLmodeVars(tagColor) \
  591.         HTML [concat $HTMLKeyWords $allHTMLkeywords]
  592.         regModeKeywords -a -k $HTMLmodeVars(attributeColor) HTML $attributeWords
  593.     } else {
  594.         regModeKeywords -b "<" ">" -c $HTMLmodeVars(tagColor) \
  595.         -k $HTMLmodeVars(tagColor) HTML $HTMLKeyWords
  596.     }
  597. }
  598.  
  599. # Change color when a color variable is changed.
  600. proc htmlChangeColorizing {flag} {
  601.     global HTMLmodeVars
  602.     set msg 0
  603.     switch -glob $flag {
  604.         simpleColoring {
  605.             htmlColorizing
  606.             set msg 1
  607.         }
  608.         JavaScriptColoring -
  609.         attributeColor -
  610.         CSSColoring {
  611.             if {!$HTMLmodeVars(simpleColoring)} {
  612.                 htmlColorizing 1
  613.             }
  614.         }
  615.         tagColor {
  616.             if {$HTMLmodeVars(simpleColoring)} {
  617.                 regModeKeywords -a -c $HTMLmodeVars(tagColor) HTML
  618.             } else {
  619.                 regModeKeywords -a -i "<" -i ">" -I $HTMLmodeVars(tagColor) HTML
  620.                 htmlColorizing 1
  621.             }
  622.         }
  623.         JavaScriptColor {
  624.             if {$HTMLmodeVars(JavaScriptColoring) && !$HTMLmodeVars(simpleColoring)} {
  625.                 htmlColorizing 1
  626.             }
  627.         }
  628.         JavaCommentColor {
  629.             if {($HTMLmodeVars(JavaScriptColoring) || $HTMLmodeVars(CSSColoring)) && !$HTMLmodeVars(simpleColoring)} {
  630.                 regModeKeywords -a -c $HTMLmodeVars(JavaCommentColor) HTML
  631.             }
  632.         }
  633.         CSSColor {
  634.             if {$HTMLmodeVars(CSSColoring) && !$HTMLmodeVars(simpleColoring)} {
  635.                 htmlColorizing 1
  636.             }
  637.         }    
  638.         stringColor {
  639.             if {!$HTMLmodeVars(simpleColoring)} {
  640.                 regModeKeywords -a -s $HTMLmodeVars(stringColor) HTML
  641.             }
  642.         }
  643.     }
  644.     refresh
  645.     if {$msg} {message "Coloring may not change until you switch to another window."}
  646. }
  647.  
  648. proc htmlShadowAttrUse {args} {
  649.     global HTMLmodeVars htmlMenu
  650.     enableMenuItem $htmlMenu "Use Attributes…" [htmlUseAttrsIsEnabled]
  651. }
  652.  
  653. trace variable HTMLmodeVars(useBigWindows) w htmlShadowAttrUse
  654. trace variable HTMLmodeVars(changeInBigWindows) w htmlShadowAttrUse
  655. trace variable HTMLmodeVars(useAttsApplyToDialogs) w htmlShadowAttrUse
  656. trace variable browserSig w htmlToggleBrowser2
  657.  
  658. # Dialog to set HTML mode variables.
  659. proc HTMLmodifyFlags {{which General}} {
  660.     global HTMLmodeVars modifiedModeVars htmlIconTxt htmlIcons htmlMenu htmlUtilsMenu
  661.     
  662.     set box [eval html${which}PrefsBox]
  663.     set allFlags [eval html${which}Flags]
  664.  
  665.     set attrTxt {"status bar" "dialog boxes"}
  666.     set manTxt {"first page in manual" "table of contents without frames" "table of contents with frames"}
  667.     set values [eval [concat dialog -w 460 -h 315 -b OK 20 285 85 305 -b Cancel 110 285 175 305 $box]]
  668.     if {[lindex $values 1]} {return}
  669.     if {$which == "General" && [lindex $values 21] == [lindex $values 22]} {
  670.         alertnote "You can't use the same menu icon for both menus. Menu icon changes are ignored."
  671.         set allFlags [lrange $allFlags 0 17]
  672.     }
  673.     set i 1
  674.     if {$which == "General"} {incr i}
  675.     foreach flag $allFlags {
  676.         global $flag
  677.         incr i
  678.         set val [lindex $values $i]
  679.         if {$flag == "useBigWindows" || $flag == "changeInBigWindows"} {set val [lsearch -exact $attrTxt $val]}
  680.         if {$flag == "manualStartPage"} {set val [lsearch -exact $manTxt $val]}
  681.         if {[string match "*Icon" $flag]} {set val [lindex $htmlIcons [lsearch $htmlIconTxt $val]]}
  682.         if {$HTMLmodeVars($flag) != $val} {
  683.             set $flag $val
  684.             set HTMLmodeVars($flag) $val
  685.             lappend modifiedModeVars [list $flag HTMLmodeVars]
  686.             if {[string match "*Color*" $flag]} {htmlChangeColorizing $flag}
  687.             if {[string match "*Icon" $flag]} {
  688.                 removeMenu [set [string trim $flag "Icon"]]
  689.                 set [string trim $flag "Icon"] $val
  690.                 eval htmlBuild[string trim $flag Iconhtml]
  691.             }
  692.         }
  693.     }
  694. }
  695.  
  696. set htmlIconTxt {"Netscape Navigator 3" "Netscape Navigator 4" "Netscape Communicator" "Internet Explorer" Cyberdog MacLynx Mosaic}
  697. set htmlIcons {•135 •293 •294 •295 •281 •296 •942}
  698.  
  699. proc htmlGeneralPrefsBox {} {
  700.     global HTMLmodeVars htmlIconTxt htmlIcons alpha::colors
  701.     
  702.     set attrTxt {"status bar" "dialog boxes"}
  703.     set manTxt {"first page in manual" "table of contents without frames" "table of contents with frames"}
  704.  
  705.     set box "-t {General HTML mode Preferences} 100 10 450 30 \
  706.     -m {{Page 1 of preferences} {Page 1 of preferences} {Page 2 of preferences} {Page 3 of preferences}} 100 35 300 55 \
  707.     -n {Page 1 of preferences} \
  708.     -c {Bring browser to front when sending a window to it} $HTMLmodeVars(browseInForeground) 10 65 450 80\
  709.     -c {Save window without asking when sending it to the browser} $HTMLmodeVars(saveWithoutAsking) 10 85 450 100 \
  710.     -c {Set tags in lower case} $HTMLmodeVars(useLowerCase) 10 105 200 120 \
  711.     -c {Use tab marks (•)} $HTMLmodeVars(useTabMarks) 10 125 450 140 \
  712.     -c {<P> has a closing tag </P>} $HTMLmodeVars(pIsContainer) 10 145 450 160 \
  713.     -c {<LI>, <DT> and <DD> have closing tags} $HTMLmodeVars(lidtAreContainers) 10 165 450 180 \
  714.     -t {Give attributes in}  10 185 150 200\
  715.     -m {[list [lindex $attrTxt $HTMLmodeVars(useBigWindows)]] {dialog boxes} {status bar}} 155 185 450 205 \
  716.     -t {Change attributes in} 10 210 150 225 \
  717.     -m {[list [lindex $attrTxt $HTMLmodeVars(changeInBigWindows)]] {dialog boxes} {status bar}} 155 210 450 230 \
  718.     -c {Beep for each attribute (applies only if you use the status bar)} $HTMLmodeVars(promptNoisily) 10 235 450 250 \
  719.     -c {Settings in 'Use Attributes…' also apply to attribute dialogs} $HTMLmodeVars(useAttsApplyToDialogs) 10 255 450 270 \
  720.     -n {Page 2 of preferences} \
  721.     -c {Simple coloring} $HTMLmodeVars(simpleColoring) 10 65 450 80 \
  722.     -t {Color of HTML tags:} 10 85 150 100 \
  723.     -m [list [concat $HTMLmodeVars(tagColor) ${alpha::colors}]] 160 85 310 105 \
  724.     -t {Color of attributes:} 10 110 150 125 \
  725.     -m [list [concat $HTMLmodeVars(attributeColor) ${alpha::colors}]] 160 110 310 130 \
  726.     -t {Color of strings:} 10 135 150 150 \
  727.     -m [list [concat $HTMLmodeVars(stringColor) ${alpha::colors}]] 160 135 310 155 \
  728.     -t {'Help' opens} 10 160 95 175 \
  729.     -m {[concat [list [lindex $manTxt $HTMLmodeVars(manualStartPage)]] $manTxt]} 100 160 450 180 \
  730.     -c {Cmd-double-clicking on non-text file link opens file} $HTMLmodeVars(openNonTextFile) 10 190 450 205 \
  731.     -c {Return on non-text file in home page window opens file} $HTMLmodeVars(homeOpenNonTextFile) 10 210 450 225 \
  732.     -t {'Last modified' text} 10 235 150 255 -e [list $HTMLmodeVars(lastModified)] 160 235 450 250 \
  733.     -n {Page 3 of preferences} \
  734.     -t {HTML menu icon:} 10 65 170 80 \
  735.     -m [list [concat [list [lindex $htmlIconTxt [lsearch $htmlIcons $HTMLmodeVars(htmlMenuIcon)]]] $htmlIconTxt]] 180 65 450 85 \
  736.     -t {HTML Utilities menu icon:} 10 90 170 105 \
  737.     -m [list [concat [list [lindex $htmlIconTxt [lsearch $htmlIcons $HTMLmodeVars(htmlUtilsMenuIcon)]]] $htmlIconTxt]] 180 90 450 110"
  738.  
  739.     return $box
  740. }
  741.  
  742. proc htmlGeneralFlags {} {
  743.     return [list browseInForeground saveWithoutAsking useLowerCase useTabMarks pIsContainer lidtAreContainers \
  744.     useBigWindows changeInBigWindows promptNoisily useAttsApplyToDialogs simpleColoring \
  745.     tagColor attributeColor stringColor manualStartPage openNonTextFile homeOpenNonTextFile lastModified htmlMenuIcon htmlUtilsMenuIcon]
  746. }
  747.  
  748. proc htmlIndentationPrefsBox {} {
  749.     global HTMLmodeVars htmlIndentElements
  750.     set box "-t {HTML mode Indentation Preferences} 100 10 450 30 \
  751.     -t {Indent the content of} 10 40 450 55"
  752.     set ww 70; set hh 10
  753.     foreach ind $htmlIndentElements {
  754.         append box " -c $ind $HTMLmodeVars(indent${ind}) $hh $ww [expr $hh + 100] [expr $ww + 15]"
  755.         incr ww 20
  756.         if {$ww > 200} {
  757.             set ww 70
  758.             incr hh 110
  759.         }
  760.     }
  761.     return $box
  762. }
  763.  
  764. proc htmlIndentationFlags {} {
  765.     global htmlIndentElements
  766.     foreach ind $htmlIndentElements {
  767.         lappend allFlags indent$ind
  768.     }
  769.     return $allFlags
  770. }    
  771.  
  772. proc htmlJavaScriptPrefsBox {} {
  773.     global HTMLmodeVars alpha::colors
  774.     set box "-t {HTML mode JavaScript and CSS Preferences} 100 10 450 30 \
  775.     -c {Electric left braces} $HTMLmodeVars(elecLBrace) 10 35 450 50 \
  776.     -c {Electric right braces} $HTMLmodeVars(elecRBrace) 10 55 450 70 \
  777.     -c {Electric semicolon} $HTMLmodeVars(electricSemi) 10 75 450 90 \
  778.     -c {Color JavaScript keywords} $HTMLmodeVars(JavaScriptColoring) 10 95 450 110\
  779.     -c {Include event handlers in attribute dialog} $HTMLmodeVars(inclEventHandler) 10 115 450 130 \
  780.     -t {Color of JavaScript keywords:} 10 135 215 150 \
  781.     -m [list [concat $HTMLmodeVars(JavaScriptColor) ${alpha::colors}]] 220 135 360 155 \
  782.     -c {Color CSS keywords} $HTMLmodeVars(CSSColoring) 10 165 450 180\
  783.     -t {Color of CSS keywords:} 10 185 215 200 \
  784.     -m [list [concat $HTMLmodeVars(CSSColor) ${alpha::colors}]] 220 185 360 205 \
  785.     -t {Color of JavaScript and CSS comments:} 10 210 270 225 \
  786.     -m [list [concat $HTMLmodeVars(JavaCommentColor) ${alpha::colors}]] 275 210 420 230"
  787.     
  788.     return $box
  789. }
  790.  
  791. proc htmlJavaScriptFlags {} {
  792.     return [list  elecLBrace elecRBrace electricSemi\
  793.     JavaScriptColoring inclEventHandler JavaScriptColor CSSColoring CSSColor JavaCommentColor]
  794. }
  795.  
  796. proc htmlCheckingPrefsBox {} {
  797.     global HTMLmodeVars
  798.     set box "-t {HTML mode Checking Links Preferences} 100 10 450 30 \
  799.     -t {These settings apply when you check links with Alpha:} 10 40 450 55 \
  800.     -c {Check anchors} $HTMLmodeVars(checkAnchors) 10 60 450 75 \
  801.     -c {Case sensitive checking (slower)} $HTMLmodeVars(caseSensitive) 10 80 450 95 \
  802.     -t {These settings apply when you check links with Big Brother:} 10 105 450 120\
  803.     -c {Bring Big Brother to front when checking links} $HTMLmodeVars(checkInFront) 10 125 450 140\
  804.     -c {Use Big Brother's link check options} $HTMLmodeVars(useBBoptions) 10 145 450 160\
  805.     -c {Ignore remote links (if you don't use Big Brother's option)} $HTMLmodeVars(ignoreRemote) 30 165 450 180\
  806.     -c {Ignore local links (if you don't use Big Brother's option)} $HTMLmodeVars(ignoreLocal) 30 185 450 200"
  807.     return $box
  808. }
  809.  
  810. proc htmlCheckingFlags {} {
  811.     return [list checkAnchors caseSensitive checkInFront useBBoptions ignoreRemote ignoreLocal]
  812. }
  813.  
  814. proc htmlWordPrefsBox {} {
  815.     global HTMLmodeVars
  816.     set box "-t {HTML mode Word Wrapping Preferences} 100 10 450 30 \
  817.     -t {Line width:} 10 40 90 55 -e [list $HTMLmodeVars(fillColumn)] 100 40 140 55 \
  818.     -t characters 145 40 300 55 \
  819.     -t {The variables below determine which characters build up words, and the word wrapping. Normally\
  820.     there is no need to change them. Read about them in general manual if you want to change them.} \
  821.     10 70 450 130 \
  822.     -t wordBreak: 10 140 150 155 -e [list $HTMLmodeVars(wordBreak)] 155 140 450 155 \
  823.     -t wordBreakPreface: 10 165 150 180 -e [list $HTMLmodeVars(wordBreakPreface)] 155 165 450 180 \
  824.     -t wrapBreak: 10 190 150 205 -e [list $HTMLmodeVars(wrapBreak)] 155 190 450 205 \
  825.     -t wrapBreakPreface: 10 215 150 230 -e [list $HTMLmodeVars(wrapBreakPreface)] 155 215 450 230"
  826. }
  827.  
  828. proc htmlWordFlags {} {
  829.     return [list fillColumn wordBreak wordBreakPreface wrapBreak wrapBreakPreface]
  830. }
  831.  
  832. if {[file exists $PREFS:HTMLadditions.tcl]} {
  833.     if {[catch {htmlReadAdditions}]} {alertnote "An error occured while reading your custom elements."}
  834. }
  835. rename htmlReadAdditions ""
  836. rename htmlReadAdditions0 ""
  837. htmlBuildMenu
  838. htmlBuildUtilsMenu
  839. htmlColorizing
  840. # Check that all home page folders exist.
  841. set tmp_notfind ""
  842. foreach tmp_hp $HTMLmodeVars(homePages) {
  843.     if {![file exists [lindex $tmp_hp 0]] || ![file isdirectory [lindex $tmp_hp 0]]} {
  844.         alertnote "Can't find the folder for the home page [lindex $tmp_hp 1][lindex $tmp_hp 2]"
  845.         set tmp_notfind "[lindex $tmp_hp 1][lindex $tmp_hp 2]"
  846.     }
  847. }
  848. if {$tmp_notfind != ""} {htmlHomePages $tmp_notfind}
  849. catch {unset tmp tmp_notfind tmp_hp}
  850.  
  851. # Define a couple of key bindings.
  852. bind ','    <zso>    {htmlInsertCharacter "less than"} HTML
  853. bind '.'    <zso>    {htmlInsertCharacter "greater than"} HTML
  854. bind '7'     <zso>    {htmlInsertCharacter ampersand}    HTML
  855. bind 0x31      <zso>    {htmlInsertCharacter "nonbreak space"}    HTML
  856.  
  857. proc htmlBindBraces {args} {
  858.     global bind::LeftBrace bind::RightBrace
  859.     eval bind [keys::toBind ${bind::LeftBrace}] htmlLeftBrace HTML
  860.     eval bind [keys::toBind ${bind::RightBrace}] htmlRightBrace HTML
  861. }
  862. htmlBindBraces
  863. trace variable bind::LeftBrace w htmlBindBraces
  864. trace variable bind::RightBrace w htmlBindBraces
  865.  
  866. # Comment line
  867. bind 'l' <C>  htmlCommentLine HTML
  868.  
  869.  
  870. # Completions
  871. set completions(HTML) {word completion::word}
  872.  
  873. # Register hooks
  874. hook::register saveHook htmlLastModified HTML
  875. hook::register saveasHook htmlLastModified HTML
  876. hook::register quitHook htmlQuitHook
  877. hook::register closeHook htmlCloseHook Home
  878. hook::register deactivateHook htmldeactivateHook Home
  879.  
  880. proc HTML::OptionTitlebar {} {
  881.     global htmlPopUptag
  882.     return [set htmlPopUptag [htmlGetAttributes]]
  883. }
  884.  
  885. proc HTML::OptionTitlebarSelect {item} {
  886.     global htmlPopUptag
  887.     if {[lsearch -exact $htmlPopUptag $item] >= 0} {
  888.         htmlInsertAttributes $item
  889.     } else {
  890.         error "Not an attibute."
  891.     }
  892. }
  893.     
  894. proc htmlLeftBrace {} {
  895.     global elecLBrace
  896.     set old $elecLBrace
  897.     if {![htmlIsInContainer SCRIPT] && ![htmlIsInContainer STYLE]} {
  898.         set elecLBrace 0
  899.     }
  900.     catch {bind::LeftBrace}
  901.     set elecLBrace $old
  902. }
  903. proc htmlRightBrace {} {
  904.     global elecRBrace
  905.     set old $elecRBrace
  906.     if {![htmlIsInContainer SCRIPT] && ![htmlIsInContainer STYLE]} {
  907.         set elecRBrace 0
  908.     }
  909.     catch {bind::RightBrace}
  910.     set elecRBrace $old
  911. }
  912.  
  913.  
  914. if {[info exists cssModeIsLoaded] && $htmlVersion != $cssVersion} {
  915.     alertnote "Warning: The versions of HTML mode and CSS mode may not be compatible.\
  916.         Always install new versions of HTML mode and CSS mode simultaneously."
  917. }
  918.  
  919. set htmlModeIsLoaded 1
  920.  
  921. message "HTML initialization complete."
  922.